home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / newaliencontrol.s < prev    next >
Text File  |  1997-01-31  |  23KB  |  1,609 lines
  1.  
  2. gotgun: dc.w 0
  3.  
  4. ANIMPOINTER: dc.l 0
  5.  
  6. ASKFORPROT:
  7.  include "ab3:CHEESESAUCE/askforprot.s"
  8.  
  9. ALIENBRIGHT: dc.w 0
  10.  
  11. ItsAnAlien:
  12.  
  13.  tst.b NASTY
  14.  beq.s .NONASIES
  15.  
  16.  move.l #32*256,StepUpVal
  17.  move.l #32*256,StepDownVal
  18.  
  19. ; move.l #4,deadframe
  20. ; move.w #0,screamsound
  21. ; move.w #160,nasheight
  22.  
  23.  move.w 12(a0),GraphicRoom(a0)
  24.  move.w 12(a0),d2
  25.  bge.s .okalive
  26.  
  27.  
  28.  rts
  29.  
  30.  
  31. .NONASIES:
  32.  move.w #-1,12(a0)
  33.  rts
  34.  
  35. .okalive:
  36.  
  37.  move.l ZoneAdds,a5
  38.  move.l (a5,d2.w*4),d0
  39.  add.l LEVELDATA,d0
  40.  move.l d0,objroom
  41.  
  42.  moveq #0,d0
  43.  move.l LINKFILE,a6
  44.  move.l a6,a5
  45.  move.b TypeOfThing(a0),d0
  46.  add.l #AlienBrights,a5
  47.  move.w (a5,d0.w*2),d1
  48.  neg.w d1
  49.  move.w d1,ALIENBRIGHT
  50.  muls #A_AnimLen,d0
  51.  add.l #AlienAnimData,a6
  52.  add.l d0,a6
  53.  
  54.  move.l a6,ANIMPOINTER
  55.  
  56.  move.l LINKFILE,a1
  57.  lea AlienStats(a1),a1
  58.  moveq #0,d0
  59.  move.b TypeOfThing(a0),d0
  60.  muls #AlienStatLen,d0
  61.  add.w d0,a1 ; ptr to alien stats
  62.  
  63.  move.w A_Height(a1),d0
  64.  ext.l d0
  65.  asl.l #7,d0
  66.  move.l d0,thingheight
  67.  
  68.  move.w A_Auxilliary(a1),AUXOBJ
  69.  
  70.  move.w (a0),CollId
  71.  
  72.  move.b 1(a1),VECOBJ
  73.  move.w A_ReactionTime(a1),REACTIONTIME
  74.  move.w A_DefBeh(a1),DEFAULTMODE
  75.  move.w A_ResBeh(a1),RESPONSEMODE
  76.  move.w A_RetBeh(a1),RETREATMODE
  77.  move.w A_FolBeh(a1),FOLLOWUPMODE
  78.  move.w A_DefSpeed(a1),prowlspeed
  79.  move.w A_ResSpeed(a1),responsespeed
  80.  move.w A_RetSpeed(a1),retreatspeed
  81.  move.w A_FolSpeed(a1),followupspeed
  82.  move.w A_FolTimeout(a1),FOLLOWUPTIMER
  83.  move.w A_WallCollDist(a1),d0
  84.  move.b diststowall+1(pc,d0.w*4),awayfromwall
  85.  move.w diststowall+2(pc,d0.w*4),extlen
  86.   
  87.  jsr AIROUTINE
  88.  
  89.  rts
  90.  
  91. diststowall:
  92.  dc.w 0,40
  93.  dc.w 1,80
  94.  dc.w 2,160
  95.  
  96. ItsAnObject:
  97.  
  98.  move.l LINKFILE,a1
  99.  lea ObjectStats(a1),a1
  100.  moveq #0,d0
  101.  move.b TypeOfThing(a0),d0
  102.  muls #ObjectStatLen,d0
  103.  add.w d0,a1 ; pointer to obj stats.
  104.  
  105.  move.l a1,StatPointer
  106.  
  107.  move.w (a1),d0
  108.  cmp.w #1,d0
  109.  blt Collectable
  110.  beq Activatable
  111.  cmp.w #3,d0
  112.  blt Destructable
  113.  beq Decoration
  114.  
  115.  rts
  116.  
  117. GUNHELD:
  118.  
  119. ; This is a player gun in his hand.
  120.  
  121.  move.l a1,a2
  122.  jsr ACTANIMOBJ
  123.  
  124.  rts
  125.  
  126. Collectable:
  127.  
  128.  move.w 12(a0),d0
  129.  bge.s .okinroom
  130.  rts
  131. .okinroom
  132.  
  133.  tst.b WhichAnim(a0)
  134.  bne.s GUNHELD
  135.  
  136.  move.w d0,GraphicRoom(a0)
  137.  
  138.  tst.b NASTY
  139.  beq.s .nolocks
  140.  move.l DoorsHeld(a0),d1
  141.  or.l d1,DoorLocks
  142. .nolocks:
  143.  tst.b worry(a0)
  144.  bne.s .worryaboot
  145.  rts
  146. .worryaboot:
  147.  
  148.  and.b #$80,worry(a0)
  149.  move.l a1,a2
  150.  
  151.  move.l ZoneAdds,a1
  152.  move.l (a1,d0.w*4),a1
  153.  add.l LEVELDATA,a1
  154.  
  155.  tst.w O_FloorCeiling(a2)
  156.  beq.s .onfloor
  157.  move.l ToZoneRoof(a1),d0
  158.  tst.b ObjInTop(a0)
  159.  beq.s .okinbotc
  160.  move.l ToUpperRoof(a1),d0
  161. .okinbotc:
  162.  
  163.  bra.s .onceiling
  164.  
  165. .onfloor
  166.  move.l ToZoneFloor(a1),d0
  167.  tst.b ObjInTop(a0)
  168.  beq.s .okinbot
  169.  move.l ToUpperFloor(a1),d0
  170. .okinbot:
  171. .onceiling
  172.  
  173.  asr.l #7,d0
  174.  move.w d0,4(a0)
  175.  
  176.  bsr DEFANIMOBJ
  177.  
  178.  bsr CHECKNEARBYONE
  179.  tst.b d0
  180.  beq.s .NotCollected1
  181.  
  182.  bsr PLR1CollectObject
  183.  
  184. .NotCollected1
  185.  
  186.  cmp.b #'n',mors
  187.  beq.s .NotCollected2
  188.  bsr CHECKNEARBYTWO
  189.  tst.b d0
  190.  beq.s .NotCollected2
  191.  
  192.  bsr PLR2CollectObject
  193.  
  194. .NotCollected2
  195.  
  196.  
  197.  rts
  198.  
  199. Activatable:
  200.  
  201.  move.w 12(a0),d0
  202.  bge.s .okinroom
  203.  rts
  204. .okinroom
  205.  
  206.  tst.b WhichAnim(a0)
  207.  bne ACTIVATED
  208.  
  209.  move.w d0,GraphicRoom(a0)
  210.  tst.b NASTY
  211.  beq.s .nolocks
  212.  move.l DoorsHeld(a0),d1
  213.  or.l d1,DoorLocks
  214. .nolocks
  215.  tst.b worry(a0)
  216.  bne.s .worryaboot
  217.  rts
  218. .worryaboot:
  219.  
  220.  and.b #$80,worry(a0)
  221.  move.l a1,a2
  222.  
  223.  move.l ZoneAdds,a1
  224.  move.l (a1,d0.w*4),a1
  225.  add.l LEVELDATA,a1
  226.  
  227.  tst.w O_FloorCeiling(a2)
  228.  beq.s .onfloor
  229.  move.l ToZoneRoof(a1),d0
  230.  tst.b ObjInTop(a0)
  231.  beq.s .okinbotc
  232.  move.l ToUpperRoof(a1),d0
  233. .okinbotc:
  234.  
  235.  bra.s .onceiling
  236.  
  237. .onfloor
  238.  move.l ToZoneFloor(a1),d0
  239.  tst.b ObjInTop(a0)
  240.  beq.s .okinbot
  241.  move.l ToUpperFloor(a1),d0
  242. .okinbot:
  243. .onceiling
  244.  
  245.  asr.l #7,d0
  246.  move.w d0,4(a0)
  247.  
  248.  bsr DEFANIMOBJ
  249.  
  250.  bsr CHECKNEARBYONE
  251.  tst.b d0
  252.  beq.s .NotActivated1
  253.  
  254.  tst.b p1_spctap
  255.  beq.s .NotActivated1
  256.  
  257. ; The player has pressed the spacebar
  258. ; within range of the object.
  259.  
  260.  cmp.b #'s',mors
  261.  beq.s .notext
  262.  
  263.  move.w TextToShow(a0),d0
  264.  blt.s .notext
  265.  
  266.  muls #160,d0
  267.  add.l LEVELDATA,d0
  268.  move.w #0,SCROLLXPOS
  269.  move.l d0,SCROLLPOINTER
  270.  add.l #160,d0
  271.  move.l d0,ENDSCROLL
  272.  move.w #40,SCROLLTIMER
  273.  
  274. .notext:
  275.  
  276.  move.w #0,ObjTimer(a0)
  277.  st WhichAnim(a0)
  278.  move.w #0,SecTimer(a0)
  279.  rts
  280.  
  281. .NotActivated1:
  282.  
  283.  
  284.  cmp.b #'n',mors
  285.  beq .NotActivated2
  286.  bsr CHECKNEARBYTWO
  287.  tst.b d0
  288.  beq.s .NotActivated2
  289.  
  290.  tst.b p2_spctap
  291.  beq.s .NotActivated2
  292.  
  293. ; The player has pressed the spacebar
  294. ; within range of the object.
  295.  
  296.  cmp.b #'s',mors
  297.  bne.s .notext2
  298.  
  299.  move.w TextToShow(a0),d0
  300.  blt.s .notext2
  301.  
  302.  muls #160,d0
  303.  add.l LEVELDATA,d0
  304.  move.w #0,SCROLLXPOS
  305.  move.l d0,SCROLLPOINTER
  306.  add.l #160,d0
  307.  move.l d0,ENDSCROLL
  308.  move.w #40,SCROLLTIMER
  309.  
  310. .notext2:
  311.  
  312.  move.w #0,ObjTimer(a0)
  313.  st WhichAnim(a0)
  314.  move.w #0,SecTimer(a0)
  315.  rts
  316.  
  317. .NotActivated2:
  318.  
  319.  rts
  320.  
  321. ACTIVATED:
  322.  
  323.  move.w d0,GraphicRoom(a0)
  324. ; move.l DoorsHeld(a0),d1
  325. ; or.l d1,DoorLocks
  326.  tst.b worry(a0)
  327.  bne.s .worryaboot
  328.  rts
  329. .worryaboot:
  330.  
  331.  and.b #$80,worry(a0)
  332.  move.l a1,a2
  333.  
  334.  move.l ZoneAdds,a1
  335.  move.l (a1,d0.w*4),a1
  336.  add.l LEVELDATA,a1
  337.  
  338.  tst.w O_FloorCeiling(a2)
  339.  beq.s .onfloor
  340.  move.l ToZoneRoof(a1),d0
  341.  tst.b ObjInTop(a0)
  342.  beq.s .okinbotc
  343.  move.l ToUpperRoof(a1),d0
  344. .okinbotc:
  345.  
  346.  bra.s .onceiling
  347.  
  348. .onfloor
  349.  move.l ToZoneFloor(a1),d0
  350.  tst.b ObjInTop(a0)
  351.  beq.s .okinbot
  352.  move.l ToUpperFloor(a1),d0
  353. .okinbot:
  354. .onceiling
  355.  
  356.  asr.l #7,d0
  357.  move.w d0,4(a0)
  358.  
  359.  bsr ACTANIMOBJ
  360.  
  361.  move.w TempFrames,d0
  362.  add.w d0,SecTimer(a0)
  363.  move.w O_ActiveTimeout(a2),d0
  364.  blt.s .nottimeout
  365.  
  366.  cmp.w SecTimer(a0),d0
  367.  ble.s .DEACTIVATE
  368.  
  369. .nottimeout:
  370.  
  371.  bsr CHECKNEARBYONE
  372.  tst.b d0
  373.  beq.s .NotDeactivated1
  374.  
  375.  tst.b p1_spctap
  376.  beq.s .NotDeactivated1
  377.  
  378. ; The player has pressed the spacebar
  379. ; within range of the object.
  380.  
  381. .DEACTIVATE:
  382.  
  383.  move.w #0,ObjTimer(a0)
  384.  clr.b WhichAnim(a0)
  385.  rts
  386.  
  387. .NotDeactivated1:
  388.  
  389.  cmp.b #'n',mors
  390.  beq.s .NotDeactivated2
  391.  
  392.  bsr CHECKNEARBYTWO
  393.  tst.b d0
  394.  beq.s .NotDeactivated2
  395.  
  396.  tst.b p2_spctap
  397.  beq.s .NotDeactivated2
  398.  
  399. ; The player has pressed the spacebar
  400. ; within range of the object.
  401.  
  402.  move.w #0,ObjTimer(a0)
  403.  clr.b WhichAnim(a0)
  404.  rts
  405.  
  406. .NotDeactivated2:
  407.  
  408.  rts
  409.  
  410. Destructable:
  411.  
  412.  move.l LINKFILE,a3
  413.  add.l #ObjectStats,a3
  414.  moveq #0,d0
  415.  move.b TypeOfThing(a0),d0
  416.  muls #ObjectStatLen,d0
  417.  add.l d0,a3
  418.  
  419.  moveq #0,d0
  420.  move.b damagetaken(a0),d0
  421.  cmp.w O_HitPoints(a3),d0
  422.  blt StillHere
  423.  
  424.  tst.b numlives(a0)
  425.  beq.s .alreadydead
  426.  
  427.  move.w TextToShow(a0),d0
  428.  blt.s .notext
  429.  
  430.  muls #160,d0
  431.  add.l LEVELDATA,d0
  432.  move.w #0,SCROLLXPOS
  433.  move.l d0,SCROLLPOINTER
  434.  add.l #160,d0
  435.  move.l d0,ENDSCROLL
  436.  move.w #40,SCROLLTIMER
  437.  
  438. .notext:
  439.  
  440.  move.w #0,ObjTimer(a0)
  441.  
  442. .alreadydead
  443.  
  444.  move.b #0,numlives(a0)
  445.  
  446.  move.w 12(a0),d0
  447.  bge.s .okinroom
  448.  rts
  449. .okinroom
  450.  
  451.  tst.b worry(a0)
  452.  bne.s .worryaboot
  453.  rts
  454. .worryaboot:
  455.  
  456.  move.l a1,a2
  457.  
  458.  move.l ZoneAdds,a1
  459.  move.l (a1,d0.w*4),a1
  460.  add.l LEVELDATA,a1
  461.  
  462.  tst.w O_FloorCeiling(a2)
  463.  beq.s .onfloor
  464.  move.l ToZoneRoof(a1),d0
  465.  tst.b ObjInTop(a0)
  466.  beq.s .okinbotc
  467.  move.l ToUpperRoof(a1),d0
  468. .okinbotc:
  469.  
  470.  bra.s .onceiling
  471.  
  472. .onfloor
  473.  move.l ToZoneFloor(a1),d0
  474.  tst.b ObjInTop(a0)
  475.  beq.s .okinbot
  476.  move.l ToUpperFloor(a1),d0
  477. .okinbot:
  478. .onceiling
  479.  
  480.  asr.l #7,d0
  481.  move.w d0,4(a0)
  482.  
  483.  bsr ACTANIMOBJ
  484.  
  485.  rts
  486.  
  487. StillHere:
  488.  move.w 12(a0),d0
  489.  bge.s .okinroom
  490.  rts
  491. .okinroom
  492.  move.b #1,numlives(a0)
  493.  
  494.  tst.b NASTY
  495.  beq.s .nolocks
  496.  move.l DoorsHeld(a0),d1
  497.  or.l d1,DoorLocks
  498. .nolocks
  499.  
  500.  tst.b worry(a0)
  501.  bne.s .worryaboot
  502.  rts
  503. .worryaboot:
  504.  
  505.  movem.l d0-d7/a0-a6,-(a7)
  506.  
  507.  move.w 12(a0),d2
  508.  move.l ZoneAdds,a5
  509.  move.l (a5,d2.w*4),d0
  510.  add.l LEVELDATA,d0
  511.  move.l d0,objroom
  512.  
  513.  move.w (a0),d0
  514.  move.l ObjectPoints,a1
  515.  move.w (a1,d0.w*8),newx
  516.  move.w 4(a1,d0.w*8),newz
  517.  
  518.  jsr LOOKFORPLAYER1
  519.  movem.l (a7)+,d0-d7/a0-a6
  520.  
  521. Decoration
  522.  
  523.  move.w 12(a0),d0
  524.  bge.s .okinroom
  525.  rts
  526. .okinroom
  527.  
  528.  tst.b worry(a0)
  529.  bne.s .worryaboot
  530.  rts
  531. .worryaboot:
  532.  
  533.  
  534. intodeco:
  535.  move.l a1,a2
  536.  
  537.  move.l ZoneAdds,a1
  538.  move.l (a1,d0.w*4),a1
  539.  add.l LEVELDATA,a1
  540.  
  541.  tst.w O_FloorCeiling(a2)
  542.  beq.s .onfloor
  543.  move.l ToZoneRoof(a1),d0
  544.  tst.b ObjInTop(a0)
  545.  beq.s .okinbotc
  546.  move.l ToUpperRoof(a1),d0
  547. .okinbotc:
  548.  
  549.  bra.s .onceiling
  550.  
  551. .onfloor
  552.  move.l ToZoneFloor(a1),d0
  553.  tst.b ObjInTop(a0)
  554.  beq.s .okinbot
  555.  move.l ToUpperFloor(a1),d0
  556. .okinbot:
  557. .onceiling
  558.  
  559.  asr.l #7,d0
  560.  move.w d0,4(a0)
  561.  
  562.  bsr DEFANIMOBJ
  563.  
  564.  rts
  565.  
  566. PLR1CollectObject:
  567.  
  568.  cmp.b #'s',mors
  569.  beq.s .notext
  570.  
  571.  move.w TextToShow(a0),d0
  572.  blt.s .notext
  573.  
  574.  muls #160,d0
  575.  add.l LEVELDATA,d0
  576.  move.w #0,SCROLLXPOS
  577.  move.l d0,SCROLLPOINTER
  578.  add.l #160,d0
  579.  move.l d0,ENDSCROLL
  580.  move.w #40,SCROLLTIMER
  581.  
  582. .notext:
  583.  
  584.  move.l LINKFILE,a2
  585.  lea AmmoGive(a2),a3
  586.  add.l #GunGive,a2
  587.  moveq #0,d0
  588.  move.b TypeOfThing(a0),d0
  589.  move.w d0,d1
  590.  muls #AmmoGiveLen,d0
  591.  muls #GunGiveLen,d1
  592.  add.w d1,a2
  593.  add.w d0,a3
  594.  
  595. ; Check if player has max of all ammo types:
  596.  
  597.  bsr CHECKPLAYERGOT
  598.  tst.b d0
  599.  beq dontcollect
  600.  
  601.  move.w #21,d0
  602.  move.l #PLAYERONEHEALTH,a1
  603. GiveAmmo:
  604.  move.w (a3)+,d1
  605.  add.w d1,(a1)+
  606.  dbra d0,GiveAmmo
  607.  
  608.  move.w #11,d0
  609.  move.l #PLAYERONESHIELD,a1
  610. GiveGuns:
  611.  move.w (a2)+,d1
  612.  or.w d1,(a1)+
  613.  dbra d0,GiveGuns
  614.  
  615.  move.l LINKFILE,a3
  616.  add.l #ObjectStats,a3
  617.  moveq #0,d0
  618.  move.b TypeOfThing(a0),d0
  619.  muls #ObjectStatLen,d0
  620.  add.l d0,a3
  621.  
  622.  move.w O_SoundEffect(a3),d0
  623.  blt.s .nosoundmake
  624.  
  625.  movem.l d0-d7/a0-a6,-(a7)
  626.  move.w d0,Samplenum
  627.  clr.b notifplaying
  628.  move.b 1(a0),IDNUM
  629.  move.w #80,Noisevol
  630.  move.l #ObjRotated,a1
  631.  move.w (a0),d0
  632.  lea (a1,d0.w*8),a1
  633.  move.l (a1),Noisex
  634.  jsr MakeSomeNoise
  635.  movem.l (a7)+,d0-d7/a0-a6
  636. .nosoundmake
  637.  
  638.  move.w #-1,12(a0)
  639.  clr.b worry(a0)
  640.  
  641. dontcollect:
  642.  rts 
  643.  
  644. PLR2CollectObject:
  645.  
  646.  cmp.b #'s',mors
  647.  bne.s .notext
  648.  
  649.  move.w TextToShow(a0),d0
  650.  blt.s .notext
  651.  
  652.  muls #160,d0
  653.  add.l LEVELDATA,d0
  654.  move.w #0,SCROLLXPOS
  655.  move.l d0,SCROLLPOINTER
  656.  add.l #160,d0
  657.  move.l d0,ENDSCROLL
  658.  move.w #40,SCROLLTIMER
  659.  
  660. .notext:
  661.  
  662.  move.l LINKFILE,a2
  663.  lea AmmoGive(a2),a3
  664.  add.l #GunGive,a2
  665.  moveq #0,d0
  666.  move.b TypeOfThing(a0),d0
  667.  move.w d0,d1
  668.  muls #AmmoGiveLen,d0
  669.  muls #GunGiveLen,d1
  670.  add.w d1,a2
  671.  add.w d0,a3
  672.  
  673. ; Check if player has max of all ammo types:
  674.  
  675.  bsr CHECKPLAYERGOT
  676.  tst.b d0
  677.  beq dontcollect2
  678.  
  679.  move.w #21,d0
  680.  move.l #PLAYERTWOHEALTH,a1
  681. GiveAmmo2:
  682.  move.w (a3)+,d1
  683.  add.w d1,(a1)+
  684.  dbra d0,GiveAmmo2
  685.  
  686.  move.w #11,d0
  687.  move.l #PLAYERTWOSHIELD,a1
  688. GiveGuns2:
  689.  move.w (a2)+,d1
  690.  or.w d1,(a1)+
  691.  dbra d0,GiveGuns2
  692.  
  693.  move.l LINKFILE,a3
  694.  add.l #ObjectStats,a3
  695.  moveq #0,d0
  696.  move.b TypeOfThing(a0),d0
  697.  muls #ObjectStatLen,d0
  698.  add.l d0,a3
  699.  
  700.  move.w O_SoundEffect(a3),d0
  701.  blt.s .nosoundmake
  702.  
  703.  movem.l d0-d7/a0-a6,-(a7)
  704.  move.w d0,Samplenum
  705.  clr.b notifplaying
  706.  move.b 1(a0),IDNUM
  707.  move.w #80,Noisevol
  708.  move.l #ObjRotated,a1
  709.  move.w (a0),d0
  710.  lea (a1,d0.w*8),a1
  711.  move.l (a1),Noisex
  712.  jsr MakeSomeNoise
  713.  movem.l (a7)+,d0-d7/a0-a6
  714. .nosoundmake
  715.  
  716.  move.w #-1,12(a0)
  717.  clr.b worry(a0)
  718.  
  719. dontcollect2:
  720.  rts 
  721.  
  722. PLAYERONEHEALTH:
  723.   dc.w 0
  724. PLAYERONEFUEL:
  725.   dc.w 0
  726. PLAYERONEAMMO:
  727.  ds.w 20
  728.  
  729. PLAYERONESHIELD:
  730.  dc.w 0
  731. PLAYERONEJETPACK:
  732.  dc.w 0
  733. PLAYERONEGUNS:
  734.  dcb.w 10,0
  735.  
  736. PLAYERTWOHEALTH:
  737.   dc.w 0
  738. PLAYERTWOFUEL:
  739.   dc.w 0
  740. PLAYERTWOAMMO:
  741.  ds.w 20
  742.  
  743. PLAYERTWOSHIELD:
  744.  dc.w 0
  745. PLAYERTWOJETPACK:
  746.  dc.w 0
  747. PLAYERTWOGUNS:
  748.  dcb.w 10,0
  749.  
  750.   
  751. CHECKPLAYERGOT:
  752.  move.b #1,d0
  753.  rts
  754.  
  755. CHECKNEARBYONE:
  756.  
  757.  move.l StatPointer,a2
  758.  move.b PLR1_StoodInTop,d0
  759.  move.b ObjInTop(a0),d1
  760.  eor.b d0,d1
  761.  bne .NotSameZone
  762.  
  763.  move.w PLR1_xoff,oldx
  764.  move.w PLR1_zoff,oldz
  765.  move.w PLR1_Zone,d7
  766.  
  767.  cmp.w 12(a0),d7
  768.  bne .NotSameZone
  769.  
  770.  move.l PLR1_yoff,d7
  771.  move.l PLR1_height,d6
  772.  asr.l #1,d6
  773.  add.l d6,d7
  774.  asr.l #7,d7
  775.  sub.w 4(a0),d7
  776.  bgt.s .okpos
  777.  neg.w d7
  778. .okpos
  779.  
  780.  cmp.w O_ColBoxHeight(a2),d7
  781.  bgt .NotSameZone
  782.  
  783.  move.w (a0),d0
  784.  move.l ObjectPoints,a1
  785.  move.w (a1,d0.w*8),newx
  786.  move.w 4(a1,d0.w*8),newz
  787.  move.w O_ColBoxRad(a2),d2
  788.  muls d2,d2
  789.  jsr CheckHit
  790.  move.b hitwall,d0
  791.  rts
  792. .NotSameZone
  793.  moveq #0,d0
  794.  rts 
  795.  
  796. CHECKNEARBYTWO:
  797.  
  798.  move.l StatPointer,a2
  799.  move.b PLR2_StoodInTop,d0
  800.  move.b ObjInTop(a0),d1
  801.  eor.b d0,d1
  802.  bne .NotSameZone
  803.  
  804.  move.w PLR2_xoff,oldx
  805.  move.w PLR2_zoff,oldz
  806.  move.w PLR2_Zone,d7
  807.  
  808.  cmp.w 12(a0),d7
  809.  bne .NotSameZone
  810.  
  811.  move.l PLR2_yoff,d7
  812.  move.l PLR2_height,d6
  813.  asr.l #1,d6
  814.  add.l d6,d7
  815.  asr.l #7,d7
  816.  sub.w 4(a0),d7
  817.  bgt.s .okpos
  818.  neg.w d7
  819. .okpos
  820.  
  821.  cmp.w O_ColBoxHeight(a2),d7
  822.  bgt .NotSameZone
  823.  
  824.  move.w (a0),d0
  825.  move.l ObjectPoints,a1
  826.  move.w (a1,d0.w*8),newx
  827.  move.w 4(a1,d0.w*8),newz
  828.  move.w O_ColBoxRad(a2),d2
  829.  muls d2,d2
  830.  jsr CheckHit
  831.  move.b hitwall,d0
  832.  rts
  833. .NotSameZone
  834.  moveq #0,d0
  835.  rts 
  836.  
  837. StatPointer: dc.l 0
  838.  
  839. DEFANIMOBJ:
  840.  
  841.  move.l LINKFILE,a3
  842.  lea ObjectDefAnims(a3),a3
  843.  moveq #0,d0
  844.  move.b TypeOfThing(a0),d0
  845.  muls #O_AnimSize,d0
  846.  add.w d0,a3
  847.  move.w ObjTimer(a0),d0
  848.  
  849.  move.w d0,d1
  850.  add.w d0,d0
  851.  asl.w #2,d1
  852.  add.w d1,d0    ;*6
  853.  
  854.  cmp.w #1,O_GFXType(a2)
  855.  blt.s .bitmap
  856.  beq.s .vector
  857.  
  858. .glare:
  859.  move.l #0,8(a0)
  860.  move.b (a3,d0.w),d1
  861.  ext.w d1
  862.  neg.w d1
  863.  move.w d1,8(a0)
  864.  move.b 1(a3,d0.w),11(a0)
  865.  move.w 2(a3,d0.w),6(a0)
  866.  
  867.  move.b 4(a3,d0.w),d1 
  868.  ext.w d1
  869.  add.w d1,d1
  870.  add.w d1,4(a0)
  871.  
  872.  moveq #0,d1
  873.  move.b 5(a3,d0.w),d1
  874.  move.w d1,ObjTimer(a0)
  875.  rts
  876.  
  877. .vector:
  878.  
  879.  move.l #0,8(a0)
  880.  move.b (a3,d0.w),9(a0)
  881.  move.b 1(a3,d0.w),11(a0)
  882.  
  883.  move.w #$ffff,6(a0)
  884.  move.b 4(a3,d0.w),d1 
  885.  ext.w d1
  886.  add.w d1,d1
  887.  add.w d1,4(a0)
  888.  move.w 2(a3,d0.w),d1
  889.  add.w d1,Facing(a0)
  890.  
  891.  moveq #0,d1
  892.  move.b 5(a3,d0.w),d1
  893.  move.w d1,ObjTimer(a0)
  894.  
  895.  rts
  896.  
  897. .bitmap:
  898.  
  899.  move.l #0,8(a0)
  900.  move.b (a3,d0.w),9(a0)
  901.  move.b 1(a3,d0.w),11(a0)
  902.  move.w 2(a3,d0.w),6(a0)
  903.  move.b 4(a3,d0.w),d1 
  904.  ext.w d1
  905.  add.w d1,d1
  906.  add.w d1,4(a0)
  907.  
  908.  moveq #0,d1
  909.  move.b 5(a3,d0.w),d1
  910.  move.w d1,ObjTimer(a0)
  911.  
  912.  rts
  913.  
  914. ACTANIMOBJ:
  915.  
  916.  move.l LINKFILE,a3
  917.  lea ObjectActAnims(a3),a3
  918.  moveq #0,d0
  919.  move.b TypeOfThing(a0),d0
  920.  muls #O_AnimSize,d0
  921.  add.w d0,a3
  922.  move.w ObjTimer(a0),d0
  923.  
  924.  move.w d0,d1
  925.  add.w d0,d0
  926.  asl.w #2,d1
  927.  add.w d1,d0    ;*6
  928.  
  929.  cmp.w #1,O_GFXType(a2)
  930.  blt.s .bitmap
  931.  beq.s .vector
  932.  
  933. .glare:
  934.  move.l #0,8(a0)
  935.  move.b (a3,d0.w),d1
  936.  ext.w d1
  937.  neg.w d1
  938.  move.w d1,8(a0)
  939.  move.b 1(a3,d0.w),11(a0)
  940.  move.w 2(a3,d0.w),6(a0)
  941.  
  942.  move.b 4(a3,d0.w),d1 
  943.  ext.w d1
  944.  add.w d1,d1
  945.  add.w d1,4(a0)
  946.  
  947.  moveq #0,d1
  948.  move.b 5(a3,d0.w),d1
  949.  move.w d1,ObjTimer(a0)
  950.  
  951.  rts
  952.  
  953. .vector:
  954.  move.l #0,8(a0)
  955.  move.b (a3,d0.w),9(a0)
  956.  move.b 1(a3,d0.w),11(a0)
  957.  move.w #$ffff,6(a0)
  958.  move.b 4(a3,d0.w),d1 
  959.  ext.w d1
  960.  add.w d1,d1
  961.  add.w d1,4(a0)
  962.  
  963.  move.w 2(a3,d0.w),d1
  964.  add.w d1,Facing(a0)
  965.  
  966.  moveq #0,d1
  967.  move.b 5(a3,d0.w),d1
  968.  move.w d1,ObjTimer(a0)
  969.  
  970.  rts
  971.  
  972. .bitmap:
  973.  
  974.  move.l #0,8(a0)
  975.  move.b (a3,d0.w),9(a0)
  976.  move.b 1(a3,d0.w),11(a0)
  977.  move.w 2(a3,d0.w),6(a0)
  978.  move.b 4(a3,d0.w),d1 
  979.  ext.w d1
  980.  add.w d1,d1
  981.  add.w d1,4(a0)
  982.  
  983.  moveq #0,d1
  984.  move.b 5(a3,d0.w),d1
  985.  move.w d1,ObjTimer(a0)
  986.  
  987.  rts
  988.  
  989.  
  990. THISPLRxoff: dc.w 0
  991. THISPLRzoff: dc.w 0
  992.  
  993. ViewpointToDraw:
  994. ; Calculate which side to display:
  995.  
  996. ; move.l ObjectPoints,a1
  997. ; move.w (a0),d1
  998. ; lea (a1,d1.w*8),a1    ; ptr to points 
  999.  
  1000. ; move.w (a1),oldx
  1001. ; move.w 4(a1),oldz
  1002. ; move.w THISPLRxoff,newx
  1003. ; move.w THISPLRzoff,newz
  1004. ; move.w #64,speed
  1005. ; move.w #-60,Range
  1006. ; movem.l a0/a1,-(a7)
  1007. ; jsr HeadTowards
  1008. ; movem.l (a7)+,a0/a1
  1009. ; 
  1010. ; move.w newx,d0
  1011. ; sub.w oldx,d0
  1012. ; move.w newz,d1
  1013. ; sub.w oldz,d1
  1014.  
  1015.  move.w Facing(a0),d3
  1016.  sub.w angpos,d3 
  1017.  
  1018. ; add.w #2048,d3
  1019.  and.w #8190,d3
  1020.  move.l #SineTable,a2
  1021.  move.w (a2,d3.w),d2
  1022.  adda.w #2048,a2
  1023.  move.w (a2,d3.w),d3
  1024.  
  1025. ; move.w d0,d4
  1026. ; move.w d1,d5
  1027. ; muls d3,d4
  1028. ; muls d2,d5
  1029. ; sub.l d5,d4
  1030. ; muls d3,d1
  1031. ; muls d2,d0
  1032. ; add.l d1,d0
  1033.  
  1034.  ext.l d2
  1035.  ext.l d3
  1036.  move.l d3,d0
  1037.  move.l d2,d4
  1038.  neg.l d0
  1039.  
  1040.  tst.l d0
  1041.  bgt.s FacingTowardsPlayer
  1042. FAP:
  1043.  tst.l d4
  1044.  bgt.s FAPR
  1045.  cmp.l d4,d0
  1046.  bgt.s LEFTFRAME
  1047.  bra.s AWAYFRAME
  1048.  
  1049. FAPR:
  1050.  neg.l d0
  1051.  cmp.l d0,d4
  1052.  bgt.s RIGHTFRAME
  1053.  bra.s AWAYFRAME
  1054.  
  1055. FacingTowardsPlayer
  1056.  
  1057.  tst.l d4
  1058.  bgt.s FTPR
  1059.  neg.l d4
  1060.  cmp.l d0,d4
  1061.  bgt.s LEFTFRAME
  1062.  bra.s TOWARDSFRAME
  1063.  
  1064. FTPR:
  1065.  cmp.l d0,d4
  1066.  bgt.s RIGHTFRAME
  1067. TOWARDSFRAME:
  1068.  move.l #0,d0
  1069.  rts
  1070. RIGHTFRAME:
  1071.  move.l #1,d0
  1072.  rts
  1073. LEFTFRAME:
  1074.  move.l #3,d0
  1075.  rts
  1076. AWAYFRAME:
  1077.  move.l #2,d0
  1078.  rts
  1079.  
  1080. deadframe: dc.l 0
  1081. screamsound: dc.w 0
  1082. nasheight: dc.w 0
  1083. tempcos: dc.w 0
  1084. tempsin: dc.w 0
  1085. tempx: dc.w 0
  1086. tempz: dc.w 0
  1087.  
  1088. RunAround:
  1089.  
  1090.  movem.l d0/d1/d2/d3/a0/a1,-(a7)
  1091.  
  1092.  move.w oldx,d0
  1093.  sub.w newx,d0    ; dx
  1094.  asr.w #1,d0
  1095.  move.w oldz,d1
  1096.  sub.w newz,d1    ; dz
  1097.  asr.w #1,d1
  1098.  
  1099.  move.l ObjectPoints,a1
  1100.  move.w (a0),d2
  1101.  lea (a1,d2.w*8),a1
  1102.  move.w (a1),d2
  1103.  sub.w tempx,d2
  1104.  move.w 4(a1),d3
  1105.  sub.w tempz,d3
  1106.  
  1107.  muls tempcos,d2
  1108.  muls tempsin,d3
  1109.  sub.l d3,d2
  1110.  
  1111.  blt.s headleft
  1112.  neg.w d0
  1113.  neg.w d1
  1114. headleft:
  1115.  sub.w d1,newx
  1116.  add.w d0,newz
  1117.  
  1118.  movem.l (a7)+,d0/d1/d2/d3/a0/a1
  1119.  rts
  1120.  
  1121. bbbb: dc.w 0
  1122. tsx: dc.w 0
  1123. tsz: dc.w 0
  1124. fsx: dc.w 0
  1125. fsz: dc.w 0
  1126.  
  1127. SHOOTPLAYER1
  1128.  
  1129.  move.w oldx,tsx
  1130.  move.w oldz,tsz
  1131.  move.w newx,fsx
  1132.  move.w oldx,fsz
  1133.  
  1134.  move.w p1_xoff,newx
  1135.  move.w p1_zoff,newz
  1136.  move.w (a1),oldx
  1137.  move.w 4(a1),oldz
  1138.  
  1139.  move.w newx,d1
  1140.  sub.w oldx,d1
  1141.  move.w newz,d2
  1142.  sub.w oldz,d2
  1143.  jsr GetRand
  1144.  asr.w #4,d0
  1145.  muls d0,d1
  1146.  muls d0,d2
  1147.  swap d1
  1148.  swap d2
  1149.  add.w d1,newz
  1150.  sub.w d2,newx
  1151.  
  1152.  move.l p1_yoff,d1
  1153.  add.l #15*128,d1
  1154.  asr.l #7,d1
  1155.  move.w d1,d2
  1156.  muls d0,d2
  1157.  swap d2
  1158.  add.w d2,d1
  1159.  ext.l d1
  1160.  asl.l #7,d1
  1161.  move.l d1,newy
  1162.  move.w 4(a0),d1
  1163.  ext.l d1
  1164.  asl.l #7,d1
  1165.  move.l d1,oldy
  1166.  
  1167.  move.b ObjInTop(a0),StoodInTop
  1168.  
  1169.  st exitfirst
  1170.  move.w #0,extlen
  1171.  move.b #$ff,awayfromwall
  1172.  move.w #%0000010000000000,wallflags
  1173.  move.l #0,StepUpVal
  1174.  move.l #$1000000,StepDownVal
  1175.  move.l #0,thingheight
  1176.  move.l objroom,-(a7)
  1177.  movem.l d0-d7/a0-a6,-(a7)
  1178.  
  1179. .again:
  1180.  jsr MoveObject
  1181.  tst.b hitwall
  1182.  bne.s .nofurther
  1183.  move.w newx,d0
  1184.  sub.w oldx,d0
  1185.  add.w d0,oldx
  1186.  add.w d0,newx
  1187.  move.w newz,d0
  1188.  sub.w oldz,d0
  1189.  add.w d0,oldz
  1190.  add.w d0,newz
  1191.  move.l newy,d0
  1192.  sub.l oldy,d0
  1193.  add.l d0,oldy
  1194.  add.l d0,newy
  1195.  bra .again
  1196.  
  1197. .nofurther:
  1198.  
  1199.  move.l objroom,backroom
  1200.  
  1201.  movem.l (a7)+,d0-d7/a0-a6
  1202.  move.l (a7)+,objroom
  1203.  
  1204.  move.l PlayerShotData,a0
  1205.  move.w #19,d1
  1206. .findonefree2
  1207.  move.w 12(a0),d2
  1208.  blt.s .foundonefree2
  1209.  adda.w #64,a0
  1210.  dbra d1,.findonefree2
  1211.  
  1212.  move.w tsx,oldx
  1213.  move.w tsz,oldz
  1214.  move.w fsx,newx
  1215.  move.w fsz,oldx
  1216.  
  1217.  rts
  1218.  
  1219. .foundonefree2:
  1220.  
  1221.  move.l ObjectPoints,a1
  1222.  move.w (a0),d2
  1223.  move.w newx,(a1,d2.w*8)
  1224.  move.w newz,4(a1,d2.w*8)
  1225.  move.b #1,shotstatus(a0)
  1226.  move.w #0,shotgrav(a0)
  1227.  move.b #0,shotsize(a0)
  1228.  move.b #0,shotanim(a0)
  1229.  
  1230.  move.l backroom,a1
  1231.  move.w (a1),12(a0)
  1232.  st worry(a0)
  1233.  move.l wallhitheight,d0
  1234.  move.l d0,accypos(a0)
  1235.  asr.l #7,d0
  1236.  move.w d0,4(a0)
  1237.  
  1238.  move.w tsx,oldx
  1239.  move.w tsz,oldz
  1240.  move.w fsx,newx
  1241.  move.w fsz,oldx
  1242.  
  1243.  rts
  1244.  
  1245. futurex: dc.w 0
  1246. futurez: dc.w 0
  1247.  
  1248. FireAtPlayer1:
  1249.  
  1250.  move.l ObjectPoints,a1
  1251.  move.w (a0),d1
  1252.  lea (a1,d1.w*8),a1
  1253.  
  1254.  move.l NastyShotData,a5
  1255.  move.w #19,d1
  1256. .findonefree
  1257.  move.w 12(a5),d0
  1258.  blt.s .foundonefree
  1259.  adda.w #64,a5
  1260.  dbra d1,.findonefree
  1261.  
  1262.  bra .cantshoot
  1263.  
  1264. .foundonefree:
  1265.  
  1266.  move.b #2,16(a5)
  1267.  
  1268.  move.l #ObjRotated,a6
  1269.  move.w (a0),d0
  1270.  lea (a6,d0.w*8),a6
  1271.  
  1272.  move.l (a6),Noisex
  1273.  move.w #100,Noisevol
  1274.  move.b #1,chanpick
  1275.  clr.b notifplaying
  1276.  move.b SHOTTYPE,d0
  1277.  move.w #0,shotlife(a5)
  1278.  move.b d0,shotsize(a5)
  1279.  move.b SHOTPOWER,shotpower(a5)
  1280.  movem.l a5/a1/a0,-(a7)
  1281.  move.b 1(a0),IDNUM
  1282.  jsr MakeSomeNoise
  1283.  movem.l (a7)+,a5/a1/a0
  1284.  
  1285.  move.l ObjectPoints,a2
  1286.  move.w (a5),d1
  1287.  lea (a2,d1.w*8),a2
  1288.  move.w (a1),oldx
  1289.  move.w 4(a1),oldz
  1290.  move.w PLR1_xoff,newx
  1291.  move.w PLR1_zoff,newz
  1292.  
  1293.  jsr CalcDist
  1294.  move.w XDIFF1,d6
  1295.  muls distaway,d6
  1296.  divs SHOTSPEED,d6
  1297.  asr.w #4,d6
  1298.  add.w d6,newx
  1299.  move.w ZDIFF1,d6
  1300.  muls distaway,d6
  1301.  divs SHOTSPEED,d6
  1302.  asr.w #4,d6
  1303.  add.w d6,newz
  1304.  move.w newx,futurex
  1305.  move.w newz,futurez
  1306.  
  1307.  move.w SHOTSPEED,speed
  1308.  move.w #0,Range
  1309.  jsr HeadTowards
  1310.  
  1311.  move.w newx,d0
  1312.  sub.w oldx,d0
  1313.  move.w newz,d1
  1314.  sub.w oldz,d1
  1315.  move.w SHOTOFFMULT,d2
  1316.  beq.s .nooffset
  1317.  
  1318.  muls d2,d0
  1319.  muls d2,d1
  1320.  asr.l #8,d0
  1321.  asr.l #8,d1
  1322.  add.w d1,oldx
  1323.  sub.w d0,oldz
  1324.  move.w futurex,newx
  1325.  move.w futurez,newz
  1326.  jsr HeadTowards
  1327.  
  1328. .nooffset:
  1329.  
  1330.  move.w newx,d0
  1331.  move.w d0,(a2)
  1332.  sub.w oldx,d0
  1333.  move.w d0,shotxvel(a5)
  1334.  move.w newz,d0
  1335.  move.w d0,4(a2)
  1336.  sub.w oldz,d0
  1337.  move.w d0,shotzvel(a5)
  1338.  
  1339.  move.l #%110010,EnemyFlags(a5)
  1340.  move.w 12(a0),12(a5)
  1341.  move.w 4(a0),d0
  1342.  move.w d0,4(a5)
  1343.  ext.l d0
  1344.  asl.l #7,d0
  1345.  add.l SHOTYOFF,d0
  1346.  move.l d0,accypos(a5)
  1347.  move.b SHOTINTOP,ObjInTop(a5)
  1348.  move.l PLR1_Obj,a2
  1349.  move.w 4(a2),d1
  1350.  sub.w #20,d1
  1351.  ext.l d1
  1352.  asl.l #7,d1
  1353.  sub.l d0,d1
  1354.  add.l d1,d1
  1355.  move.w distaway,d0 
  1356.   
  1357.  move.w SHOTSHIFT,d2
  1358.  asr.w d2,d0
  1359.  tst.w d0
  1360.  bgt.s .okokokok
  1361.  moveq #1,d0
  1362. .okokokok
  1363.  
  1364.  divs d0,d1
  1365.  move.w d1,shotyvel(a5)
  1366.  st worry(a5)
  1367.  
  1368.  move.l GunData,a6
  1369.  moveq #0,d0
  1370.  move.b SHOTTYPE,d0 
  1371.  asl.w #5,d0
  1372.  add.w d0,a6
  1373.  move.w 16(a6),shotgrav(a5)
  1374.  move.w 18(a6),shotflags(a5)
  1375. ; move.w 20(a6),d0
  1376. ; add.w d0,shotyvel(a5)
  1377.  
  1378. .cantshoot
  1379.  rts
  1380.  
  1381.  
  1382. SHOOTPLAYER2
  1383.  
  1384.  move.w oldx,tsx
  1385.  move.w oldz,tsz
  1386.  move.w newx,fsx
  1387.  move.w oldx,fsz
  1388.  
  1389.  move.w p2_xoff,newx
  1390.  move.w p2_zoff,newz
  1391.  move.w (a1),oldx
  1392.  move.w 4(a1),oldz
  1393.  
  1394.  move.w newx,d1
  1395.  sub.w oldx,d1
  1396.  move.w newz,d2
  1397.  sub.w oldz,d2
  1398.  jsr GetRand
  1399.  asr.w #4,d0
  1400.  muls d0,d1
  1401.  muls d0,d2
  1402.  swap d1
  1403.  swap d2
  1404.  add.w d1,newz
  1405.  sub.w d2,newx
  1406.  
  1407.  move.l p2_yoff,d1
  1408.  add.l #15*128,d1
  1409.  asr.l #7,d1
  1410.  move.w d1,d2
  1411.  muls d0,d2
  1412.  swap d2
  1413.  add.w d2,d1
  1414.  ext.l d1
  1415.  asl.l #7,d1
  1416.  move.l d1,newy
  1417.  move.w 4(a0),d1
  1418.  ext.l d1
  1419.  asl.l #7,d1
  1420.  move.l d1,oldy
  1421.  move.b ObjInTop(a0),StoodInTop
  1422.  
  1423.  st exitfirst
  1424.  move.w #0,extlen
  1425.  move.b #$ff,awayfromwall
  1426.  move.w #%0000010000000000,wallflags
  1427.  move.l #0,StepUpVal
  1428.  move.l #$1000000,StepDownVal
  1429.  move.l #0,thingheight
  1430.  move.l objroom,-(a7)
  1431.  movem.l d0-d7/a0-a6,-(a7)
  1432.  
  1433. .again:
  1434.  jsr MoveObject
  1435.  tst.b hitwall
  1436.  bne.s .nofurther
  1437.  move.w newx,d0
  1438.  sub.w oldx,d0
  1439.  add.w d0,oldx
  1440.  add.w d0,newx
  1441.  move.w newz,d0
  1442.  sub.w oldz,d0
  1443.  add.w d0,oldz
  1444.  add.w d0,newz
  1445.  move.l newy,d0
  1446.  sub.l oldy,d0
  1447.  add.l d0,oldy
  1448.  add.l d0,newy
  1449.  bra .again
  1450.  
  1451. .nofurther:
  1452.  
  1453.  move.l objroom,backroom
  1454.  
  1455.  movem.l (a7)+,d0-d7/a0-a6
  1456.  move.l (a7)+,objroom
  1457.  
  1458.  move.l NastyShotData,a0
  1459.  move.w #19,d1
  1460. .findonefree2
  1461.  move.w 12(a0),d2
  1462.  blt.s .foundonefree2
  1463.  adda.w #64,a0
  1464.  dbra d1,.findonefree2
  1465.  
  1466.  move.w tsx,oldx
  1467.  move.w tsz,oldz
  1468.  move.w fsx,newx
  1469.  move.w fsz,oldx
  1470.  
  1471.  rts
  1472.  
  1473. .foundonefree2:
  1474.  
  1475.  move.l ObjectPoints,a1
  1476.  move.w (a0),d2
  1477.  move.w newx,(a1,d2.w*8)
  1478.  move.w newz,4(a1,d2.w*8)
  1479.  move.b #1,shotstatus(a0)
  1480.  move.w #0,shotgrav(a0)
  1481.  move.b #0,shotsize(a0)
  1482.  move.b #0,shotanim(a0)
  1483.  
  1484.  move.l backroom,a1
  1485.  move.w (a1),12(a0)
  1486.  st worry(a0)
  1487.  move.l wallhitheight,d0
  1488.  move.l d0,accypos(a0)
  1489.  asr.l #7,d0
  1490.  move.w d0,4(a0)
  1491.  
  1492.  move.w tsx,oldx
  1493.  move.w tsz,oldz
  1494.  move.w fsx,newx
  1495.  move.w fsz,oldx
  1496.  
  1497.  rts
  1498.  
  1499. FireAtPlayer2:
  1500.  move.l NastyShotData,a5
  1501.  move.w #19,d1
  1502. .findonefree
  1503.  move.w 12(a5),d0
  1504.  blt.s .foundonefree
  1505.  adda.w #64,a5
  1506.  dbra d1,.findonefree
  1507.  
  1508.  bra .cantshoot
  1509.  
  1510. .foundonefree:
  1511.  
  1512.  move.b #2,16(a5)
  1513.  
  1514.  move.l #ObjRotated,a6
  1515.  move.w (a0),d0
  1516.  lea (a6,d0.w*8),a6
  1517.  
  1518.  move.l (a6),Noisex
  1519.  move.w #100,Noisevol
  1520.  move.b #1,chanpick
  1521.  clr.b notifplaying
  1522.  move.b SHOTPOWER,d0
  1523.  move.w #0,shotlife(a5)
  1524.  move.b d0,shotsize(a5)
  1525.  move.b SHOTPOWER,shotpower(a5)
  1526.  movem.l a5/a1/a0,-(a7)
  1527.  move.b 1(a0),IDNUM
  1528.  jsr MakeSomeNoise
  1529.  movem.l (a7)+,a5/a1/a0
  1530.  
  1531.  move.l ObjectPoints,a2
  1532.  move.w (a5),d1
  1533.  lea (a2,d1.w*8),a2
  1534.  move.w (a1),oldx
  1535.  move.w 4(a1),oldz
  1536.  move.w PLR2_xoff,newx
  1537.  move.w PLR2_zoff,newz
  1538.  move.w SHOTSPEED,speed
  1539.  move.w #0,Range
  1540.  jsr HeadTowards
  1541.  
  1542.  move.w newx,d0
  1543.  sub.w oldx,d0
  1544.  move.w newz,d1
  1545.  sub.w oldz,d1
  1546.  move.w SHOTOFFMULT,d2
  1547.  beq.s .nooffset
  1548.  
  1549.  muls d2,d0
  1550.  muls d2,d1
  1551.  asr.l #8,d0
  1552.  asr.l #8,d1
  1553.  add.w d1,oldx
  1554.  sub.w d0,oldz
  1555.  move.w PLR2_xoff,newx
  1556.  move.w PLR2_zoff,newz
  1557.  jsr HeadTowards
  1558.  
  1559. .nooffset:
  1560.  
  1561.  
  1562.  move.w newx,d0
  1563.  move.w d0,(a2)
  1564.  sub.w oldx,d0
  1565.  move.w d0,shotxvel(a5)
  1566.  move.w newz,d0
  1567.  move.w d0,4(a2)
  1568.  sub.w oldz,d0
  1569.  move.w d0,shotzvel(a5)
  1570.  
  1571.  move.l #%110010,EnemyFlags(a5)
  1572.  move.w 12(a0),12(a5)
  1573.  move.w 4(a0),d0
  1574.  move.w d0,4(a5)
  1575.  ext.l d0
  1576.  asl.l #7,d0
  1577.  add.l SHOTYOFF,d0
  1578.  move.l d0,accypos(a5)
  1579.  move.b SHOTINTOP,ObjInTop(a5)
  1580.  move.l PLR2_Obj,a2
  1581.  move.w 4(a2),d1
  1582.  sub.w #20,d1
  1583.  ext.l d1
  1584.  asl.l #7,d1
  1585.  sub.l d0,d1
  1586.  add.l d1,d1
  1587.  move.w distaway,d0
  1588.  move.w SHOTSHIFT,d2
  1589.  asr.w d2,d0
  1590.  tst.w d0
  1591.  bgt.s .okokokok
  1592.  moveq #1,d0
  1593. .okokokok
  1594.  divs d0,d1
  1595.  move.w d1,shotyvel(a5)
  1596.  st worry(a5)
  1597.  move.w #0,shotgrav(a5)
  1598. .cantshoot
  1599.  rts
  1600.  
  1601. SHOTYOFF: dc.l 0
  1602. SHOTTYPE: dc.w 0
  1603. SHOTPOWER: dc.w 0
  1604. SHOTSPEED: dc.w 0
  1605. SHOTOFFMULT: dc.w 0
  1606. SHOTSHIFT: dc.w 0
  1607. SHOTINTOP: dc.w 0
  1608.  
  1609. backroom: dc.l 0